<?

$pagina_actual = getenv("SCRIPT_NAME");



// Carpeta raíz /
if (eregi("/~ivperep/index.php", $pagina_actual)) {# Página principal
    $php = "index.php";
}
elseif (eregi("/~ivperep/curriculum.php", $pagina_actual)) {
    $php = "curriculum.php";
}
elseif (eregi("/~ivperep/formularios.php", $pagina_actual)) {
    $php = "formularios.php";
}
elseif (eregi("/~ivperep/redirigir.php", $pagina_actual)) {
    $php = "redirigir.php";
}
elseif (eregi("/~ivperep/tablas", $pagina_actual)) {
    $php = "tablas.php";
}

// Carpeta /pr8
elseif (eregi("/~ivperep/pr8/pw1.php", $pagina_actual)) {
    $php = "pr8--pw1.php";
}
elseif (eregi("/~ivperep/pr8/pw2.php", $pagina_actual)) {
    $php = "pr8--pw2.php";
}

// el resto
else {
    $php = "00otros";
}

# Archivo donde vamos a escribir los datos recopilados          
$archivo_registro = '/includes/registro/'.$php.'.csv';                                                                                   

# Qué vamos a escribir
$reg_pagina = getenv("SCRIPT_NAME");
$reg_pag_ant = getenv("HTTP_REFERER"); 
$reg_hora = date("H\:i");
$reg_fecha = date("d\/m\/Y");
$reg_ip = getenv("REMOTE_ADDR");
$reg_navegador = getenv("HTTP_USER_AGENT");


# Recopilando toda la información anterior, y estructurándola en formato CSV
$escribir_reg_csv = '"'.$reg_pagina.'", "'.$reg_pag_ant.'", "'.$reg_fecha.'", "'.$reg_hora.'", "'.$reg_ip.'", "'.$reg_navegador.'"\n';                                                                     

/*
# Comenzando proceso de escritura                                                                                                                                              
if (is_writable($archivo_registro)) {// ¿podemos escribir?                                                                                         

if (!$handle_registro = fopen($archivo_registro, 'a')) {// abrimos el archivo a modo "append" ('a') para hacer escritura en el mismo                        
echo "ERROR: No se puede abrir el archivo ($archivo_registro)";                                                                                    
exit;                                                                                                                                         
}

if (fwrite($handle_registro, $escribir_registro) === FALSE) {// escribimos $escribir_nav en el archivo abierto.                                             
echo "no se puede escribir en el archivo ($archivo_registro)";                                                                                     
exit;                                                                                                                                         
}
}
# Proceso de escritura terminado

*/  

//echo "\n<!-------------------------------------------------\n";
echo "    Nueva entrada en el registro:\n";
echo "   ----------------------------------------------------\n";
echo "    * Página visitada:\t".$reg_pagina."\n";
echo "    * Página anterior:\t".$reg_pag_ant."\n";
echo "    * Fecha y hora:\t".$reg_fecha." ".$reg_hora."\n";
echo "    * Dirección IP:\t".$reg_ip."\n";
echo "    * Navegador:\t".$reg_navegador."\n";
//echo "---------------------------------------------------> \n";

//echo $archivo_registro;
//echo $escribir_reg_csv;
?>                                                                                                                                             